home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / momo.bas < prev    next >
BASIC Source File  |  1991-10-18  |  9KB  |  204 lines
  1. 1 KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF
  2. 1000 '"\MoMo,7
  3. 1010 '
  4. 1020 RESTORE 1510:GOSUB 1510:GOSUB 1560
  5. 1030 PLAY OFF:T$="T120":PLAY T$,T$,T$,T$,T$
  6. 1040 B0$="@59U80%RL16O3V13DDDDFDDD DDDDFDDD DDDDFDDD DDDDFDDD"
  7. 1050 BA$="@59U-80%LL16O3V13DDDDFDDD DDDDFDDD DDDDFDDD DDDDFDDD"
  8. 1060 A0$="@1U40%RO3V13L8D2EFGAB-2G2"
  9. 1070 F0$="@1U-40%LO3V13L8D2EFGAB-2G2"
  10. 1080 C0$="O1L8V15@2E@3E@2E16E16@3E @2E@3E@2E@3E16D16 @2E@3E@2E16E16@3E @2E@3E@2E@3E16D16"
  11. 1090 A1$="D2<AB->CD FG16A16FE F2"
  12. 1100 A1B$="D2<AB->CD FG16A16FE D2"
  13. 1110 D0$="@12%RU 40L16O4V13DFAF DFAF DFAF DFAF DFAF DFAF G4AB->CD<"
  14. 1120 E0$="@12%LU-40L16O4V11RDFAF DFAF DFAF DFAF DFAF DFAF G4AB->C<"
  15. 1130 D1$="DFAF DFAF DFAF DFAF  DFAF DFAF F4GAB->C"
  16. 1140 D1B$="DFAF DFAF DFAF DFAF  DFAF DFAF D4C<B-AG>"
  17. 1150 E1$="RDFAF DFAF DFAF DFAF  DFAF DFAF F4GAB-"
  18. 1160 E1B$="RDFAF DFAF DFAF DFAF  DFAF DFAF D4C<B-A>"
  19. 1170 C1$="L8@2E@3E@2E16E16@3E @2E@3E@2E@3E16D16 @2E@3E@2E16E16@3E @2E@3E>>>@4E16E16C+16C+16<<<"
  20. 1180 '
  21. 1190 B2$="O3CCCC C>C<C>C< CCCC C>C<C>C< <GGGG G>G<G>G< GGGG G>G<G>G<"
  22. 1200 A2$="O3L8CDFE G2 FED16C16D16C16 E2"
  23. 1210 A3$="O3L8CDFE G2 FED16C16D16C16&C2"
  24. 1220 D2$="O4CFGF CFGF  G4FEDC FGED FGED E4 FGAB"
  25. 1230 E2$="O4RCFGF CFGF  G4FEDC FGED FGED E4 FGA"
  26. 1240 D3$="O4CFGF CFGF  G4FEDC FGED FGED C4 DCDC"
  27. 1250 E3$="O4RCFGF CFGF  G4FEDC FGED FGED C4 DCD"
  28. 1260 '
  29. 1270 A4$="L16O3<AR>CDE4 D2 E2 GFED CDCD"
  30. 1280 B4$="O3<AAAA A>A<A>A<  >DDDD D>D<D>D< EEEE>E<E>E<E DDDD D>D<D>D<"
  31. 1290 D4$="O3 A>DED<A>DED<A>DED<A>DED  CEGE CEGE EFEF EFEF"
  32. 1300 E4$="O3 RA>DED<A>DED<A>DED<A>DED  CEGE CEGE EFEF EFE"
  33. 1310 D5$="O3 A>DED<A>DED<A>DED<A>DED  CEGE CEGE E2"
  34. 1320 E5$="O3 RA>DED<A>DED<A>DED<A>DED  CEGE CEGE E4.&E16"
  35. 1330 A6$="L16E8DC <A4> EDFED4 CDEF DEFG E2"
  36. 1340 A7$="E8DC <A4> EDFED4 CDEF DEFG A2"
  37. 1350 B6$="O2 AAAAA>A<A>A< AAAAA>A<A>A< >CCCCC>C<C>C< <AAAAA>A<A>A<"
  38. 1360 D6$="CEFE AGFE EFGF EFGF CDEF DEFG C4DEFG"
  39. 1370 E6$="RCEFE AGFE EFGF EFGF CDEF DEFG C4DEF"
  40. 1380 D7$="CEFE AGFE EFGF EFGF CDEF DEFG A4B>CDE"
  41. 1390 E7$="RCEFE AGFE EFGF EFGF CDEF DEFG A4B>CD"
  42. 1400 C7$="L8@2E@3E@2E16E16@3E @2E@3E@2E@3E16D16 @2E@3E@2E16E16@3E @2C@3EE32E32E16D32D32D16"
  43. 1410 PLAY ,,,,,,"%RU0","%LU999"
  44. 1420 PLAY A0$,B0$,BA$,D0$,E0$,F0$,C0$,C0$:PLAY A1$,B0$,BA$,D1$,E1$,A1$,C0$,C0$
  45. 1430 PLAY A0$,B0$,BA$,D0$,E0$,F0$,C0$,C0$:PLAY A1B$,B0$,BA$,D1B$,E1B$,A1B$,C1$,C1$
  46. 1440 '
  47. 1450 PLAY A2$,B2$,B2$,D2$,E2$,A2$,C0$,C0$:PLAY A3$,B2$,B2$,D3$,E3$,A3$,C0$,C0$
  48. 1460 '
  49. 1470 PLAY A4$,B4$,B4$,D4$,E4$,A4$,C0$,C0$:PLAY A4$,B4$,B4$,D5$,E5$,A4$,C0$,C0$
  50. 1480 PLAY A6$,B6$,B6$,D6$,E6$,A6$,C0$,C0$:PLAY A7$,B6$,B6$,D7$,E7$,A7$,C7$,C7$
  51. 1490 '
  52. 1500 GOTO 1420
  53. 1510 '
  54. 1520 ' --------- HG PLAY SOUND-DATA SETTING PROGRAM ---------
  55. 1530 '
  56. 1540 LOAD@"Q:\FJ\PCM\EDRUMS.PMB":GOSUB *FM_SET
  57. 1550 FOR I=0 TO 13:PART I,I:NEXT:RETURN
  58. 1560 DATA "  何かまともに出来てしまいました。Ｂａｓｓも簡単に済ませてＭＡＩＮとバッキングに凝ってみました。
  59. 1570 DATA "  本当は　ＴＨＵＮＤＥＲ　ＦＯＲＣＥ　II　ＭＤ（メガドライブ版ね）の８面の音楽みたいのを作ろうとしてたんですが・・・。こんなのが出来てしまいました。
  60. 1580 DATA "  ところで皆さんはＴ．Ｆ．II　ＭＤをしたことがありますか。はっきし言ってムズイ!!けど面白いです。どうでもいいですがカースなんてのもありますがありゃその名のとうりカスです。
  61. 1590 DATA "  Ｔ．Ｆ．II  ＭＤはゲームバランス、音楽共にいいです。しかし弾の多さに慣れるまでに随分と時間が掛かってしまう（友だちは皆こんなもん慣れきれっかよと言っていますが・・・）。
  62. 1600 DATA "  ぼくは８面までは行けます（勿論コンティニュー無で!!）。８面は異様に難しいぞ!!
  63. 1610 DATA "  ８面のあのうにょうにょしている（？）Ｂａｓｓが好きです。
  64. 1620 DATA "  ではこの辺でＰｕｓｈ　ＲＥＴＵＲＮ　ＫＥＹ．
  65. 1630 DATA "  "
  66. 1640 DATA "  Ｐｒｏｇｒａｍｅｄ　ｂｙ　Ｗ．ＭｏＭｏ．
  67. 1650 DATA "　１９９０年１月１８日
  68. 1660 DATA ""
  69. 1670 COLOR 7,0,0,0:CLS:RESTORE 1560
  70. 1680 GOSUB *SCREEN
  71. 1700 I$=INKEY$:IF I$=CHR$(13) THEN *GAMEN ELSE 1700
  72. 1710 '
  73. 1720 *GAMEN
  74. 1730 '
  75. 1740 GOSUB *F_OUT:SCREEN@2:COLOR 7,0,0,0:CLS:GOSUB *HOSHI
  76. 1750 '
  77. 1760 A=225:B=240:C=255
  78. 1770 FOR I=1 TO 10
  79. 1780 SYMBOL(10-I,0),"W.MoMoｵﾘｼﾞﾅﾙPart2",4,8,[A,B,C],,,,5
  80. 1790 A=A-16:B=B-16:C=C-5:NEXT
  81. 1800 A=225:B=220:C=215
  82. 1810 FOR I=1 TO 10
  83. 1820 SYMBOL(10-I,120),"Sad Eigaht",7,8,[A,B,C],,,,5
  84. 1830 A=A-16:B=B-4:C=C-8:NEXT
  85. 1840 SYMBOL(0,240),"これが曲名",1,1,[150,150,150]
  86. 1850 A=225:B=220:C=215
  87. 1860 FOR I=1 TO 10
  88. 1870 SYMBOL(10-I,260),"Programed by W.MoMo",4,8,[A,B,C]
  89. 1880 A=A-8:B=B-4:C=C-16:NEXT
  90. 1890 A=255:B=255:C=255
  91. 1900 FOR I=10 TO 1 STEP -1
  92. 1910 SYMBOL(I,395),"超手抜きで御免ね",5,3,[A,B,C]
  93. 1920 A=A-16:B=B-16:C=C-16:NEXT
  94. 1930 '
  95. 1940 SYMBOL(0,460),"あ、画面がですよ。",1,1,[170,170,170]
  96. 1950 '
  97. 1960 RETURN
  98. 1970 '
  99. 1980 *HOSHI
  100. 1990 '
  101. 2000 FOR I=1 TO 4000:X=INT(RND(1)*640):Y=INT(RND(1)*480)
  102. 2010 A=INT(RND(1)*255):B=INT(RND(1)*255):PSET(X,Y),[0,A,B]
  103. 2020 NEXT:RETURN
  104. 17000 *SCREEN
  105. 17010 SCREEN@ 0 : PALETTE@
  106. 17020 FOR I=0 TO 15 : PALETTE I,[0,0,0] : NEXT
  107. 17030 COLOR ,%5 : CLS
  108. 17040 X=630 : Y=30 : MX=2 : MY=3: R=3 : C1=1 : C2=5 : C3=15 : F=16
  109. 17050 ST$="ＰＩＣＫ　ＵＰ　ＴＯＷＮＳ" : GOSUB *STR_PUT
  110. 17060 X=575 : Y=30 : MX=2 : MY=3 : R=3 : C1=1 : C2=5 : C3=15 : F=16
  111. 17070 ST$="ＭＵＳＩＣ　ＰＲＯＧＲＡＭ" : GOSUB *STR_PUT
  112. 17080 GOSUB *F_IN : FOR I=0 TO 2000 : NEXT
  113. 17090 X1=10 : X2=510 : Y1=10 : Y2=460 : C1=1 : C2=6 : C3=15
  114. 17100 GOSUB *WAKU
  115. 17110 X1=20 : X2=500 : Y1=20 : Y2=90 : C1=15 : C2=7 : C3=5
  116. 17120 GOSUB *WAKU
  117. 17130 X1=20 : X2=500 : Y1=420 : Y2=450 : C1=15 : C2=7 : C3=5
  118. 17140 GOSUB *WAKU
  119. 17150 X1=20 : X2=500 : Y1=100 : Y2=410 : C1=15 : C2=7 : C3=5
  120. 17160 GOSUB *WAKU
  121. 17170 SYMBOL (30,430),"ＰＦ１キーを押すと、演奏を中断して音楽ＭＥＮＵに戻ります。",1,1,0,,,1
  122. 17180 SYMBOL (30,30),"　ＴＩＴＬＥ　",1,1,0,0,PSET,17
  123. 17190 SYMBOL (80,53),"Ｓａｄ　Ｅｉｇａｈｔ",1,2,0,0,PSET,1
  124. 17200 SYMBOL (30,110),"　ＤＡＴＡ　",1,1,0,0,PSET,17
  125. 17210 SYMBOL (80,140),"Programed by　Ｗ．ＭｏＭｏ",1,1,0,0,PSET,1,1
  126. 17220 SYMBOL (80,160)," Composed by　Ｗ．ＭｏＭｏ",1,1,0,0,PSET,1,1
  127. 17230 SYMBOL (30,200),"　ＭＥＳＳＡＧＥ　",1,1,0,0,PSET,17
  128. 17240 'ST$()="･･････････････････････････････････････････････････････"
  129. 17250 ST$(0)="  何かまともに出来てしまいました。Ｂａｓｓも簡単に済ま"
  130. 17260 ST$(1)="せてＭＡＩＮとバッキングに凝ってみました。"
  131. 17270 ST$(2)="  本当は　ＴＨＵＮＤＥＲ　ＦＯＲＣＥ　II　ＭＤ（メガド"
  132. 17280 ST$(3)="ライブ版ね）の８面の音楽みたいのを作ろうとしてたんです"
  133. 17290 ST$(4)="が・・・。こんなのが出来てしまいました。"
  134. 17300 ST$(5)=""
  135. 17310 ST$(6)="  ではこの辺でＰｕｓｈ　ＲＥＴＵＲＮ　ＫＥＹ．"
  136. 17320 ST$(7)=""
  137. 17330 GOSUB *MESSAGE
  138. 17340 RETURN
  139. 17350 *STR_PUT
  140. 17360 SYMBOL (X,Y),ST$,MX,MY,%C1,R,PSET,F
  141. 17370 SYMBOL (X+1,Y),ST$,MX,MY,%C1,R,PSET,F
  142. 17380 SYMBOL (X+2,Y),ST$,MX,MY,%C1,R,PSET,F
  143. 17390 SYMBOL (X+2,Y-1),ST$,MX,MY,%C1,R,PSET,F
  144. 17400 SYMBOL (X+2,Y-2),ST$,MX,MY,%C1,R,PSET,F
  145. 17410 SYMBOL (X,Y-2),ST$,MX,MY,%C3,R,PSET,F
  146. 17420 SYMBOL (X+1,Y-2),ST$,MX,MY,%C3,R,PSET,F
  147. 17430 SYMBOL (X,Y-1),ST$,MX,MY,%C3,R,PSET,F
  148. 17440 SYMBOL (X+1,Y-1),ST$,MX,MY,%C2,R,PSET,F
  149. 17450 RETURN
  150. 17460 *WAKU
  151. 17470 LINE (X1+2,Y1+2)-(X2-2,Y2-2),PSET,%C2,BF
  152. 17480 CONNECT (X1,Y2)-(X1,Y1)-(X2,Y1),%C3
  153. 17490 CONNECT (X1+1,Y2-1)-(X1+1,Y1+1)-(X2-1,Y1+1),%C3
  154. 17500 CONNECT (X1+1,Y2)-(X2,Y2)-(X2,Y1+1),%C1
  155. 17510 CONNECT (X1+2,Y2-1)-(X2-1,Y2-1)-(X2-1,Y1+2),%C1
  156. 17520 RETURN
  157. 17530 *MESSAGE
  158. 17540 FOR I=0 TO 7
  159. 17550   SYMBOL (50,230+20*I),ST$(I),1,1,0,0,PSET,1
  160. 17560 NEXT I
  161. 17570 RETURN
  162. 17580 *F_OUT
  163. 17590 FOR I=16 TO 1 STEP -1 : GOSUB *PALETTE : NEXT I :COLOR ,%0: CLS: RETURN
  164. 17600 *F_IN
  165. 17610 FOR I=1 TO 16 : GOSUB *PALETTE : NEXT I : RETURN
  166. 17620 *PALETTE
  167. 17630 PALETTE 1,[0*I,0*I,1*I]
  168. 17640 PALETTE 2,[1*I,0*I,2*I]
  169. 17650 PALETTE 3,[2*I,1*I,3*I]
  170. 17660 PALETTE 4,[4*I,2*I,6*I]
  171. 17670 PALETTE 5,[8*I,6*I,9*I]
  172. 17680 PALETTE 6,[12*I,10*I,13*I]
  173. 17690 PALETTE 7,[14*I,13*I,15*I]
  174. 17700 PALETTE 15,[15*I,15*I,15*I]
  175. 17710 RETURN
  176. 30000 *FM_SET
  177. 30010 DIM FM%(23) : RESTORE *FM_SET
  178. 30020 SAD=VARPTR(FM%(0))
  179. 30030 FOR I=1 TO 3
  180. 30040   READ NUM
  181. 30050   READ TN$ : TN$=LEFT$(TN$+SPACE$(8),8)
  182. 30060   FOR OFS=0 TO 7 : POKE SAD+OFS,ASC(MID$(TN$,OFS+1,1)) : NEXT
  183. 30070   FOR OFSET=8 TO 33
  184. 30080     READ DT$
  185. 30090     POKE SAD+OFSET,VAL("&H"+DT$)
  186. 30100   NEXT
  187. 30110   VOICE NUM,FM%
  188. 30120 NEXT : RETURN
  189. 30130 'FM TONE DATA
  190. 30140 DATA 1  'Trumpet  ( from "HGFMDATA" )
  191. 30145 DATA Trumpet 
  192. 30150 DATA 02,72,4E,32,1E,17,32,00,0D,0E,0D,93
  193. 30160 DATA 0C,0A,0C,03,06,00,06,07,15,55,FA,34,3A,00
  194. 30170 DATA 12  'Strings1  ( from "HGFMDATA" )
  195. 30175 DATA Strings1
  196. 30180 DATA 02,72,3A,42,23,20,1C,00,9E,9C,9E,8D
  197. 30190 DATA 0B,0D,0A,04,00,00,00,00,18,28,58,18,3A,30
  198. 30230 DATA 59  'EleBass5  ( from "HGFMDATA" )
  199. 30235 DATA EleBass5
  200. 30240 DATA 01,00,08,00,1E,0F,32,00,1F,1F,1F,1F
  201. 30250 DATA 08,11,08,08,02,01,03,00,68,36,68,36,02,00
  202. 65000 BGM 0:PLAY "R64":BGM 1
  203. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  204.